VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   4245
   ClientLeft      =   1215
   ClientTop       =   750
   ClientWidth     =   7155
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4245
   ScaleWidth      =   7155
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox pctLogo1 
      BorderStyle     =   0  'None
      Height          =   2655
      Left            =   120
      Picture         =   "frmSplash.frx":000C
      ScaleHeight     =   2655
      ScaleWidth      =   7095
      TabIndex        =   0
      Top             =   120
      Width           =   7095
   End
   Begin VB.Label lblKeyPress 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Press any key to continue..."
      Height          =   255
      Left            =   2760
      TabIndex        =   5
      Top             =   3960
      Width           =   2175
   End
   Begin VB.Label lblCreatedByName 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Jeremy T. Parker"
      Height          =   255
      Left            =   1320
      TabIndex        =   4
      Top             =   3480
      Width           =   1575
   End
   Begin VB.Label lblCreateBy 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Created By:"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   3480
      Width           =   855
   End
   Begin VB.Label lblVersionNumber 
      BackColor       =   &H00FFFFFF&
      Caption         =   "2.0.1"
      Height          =   255
      Left            =   1320
      TabIndex        =   2
      Top             =   3000
      Width           =   1335
   End
   Begin VB.Label lblVersion 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Version:"
      Height          =   255
      Left            =   240
      TabIndex        =   1
      Top             =   3000
      Width           =   615
   End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_KeyPress(KeyAscii As Integer)
'Unloads frmSplash when a key is pressed.
    Unload Me
End Sub
Private Sub Form_Load()
'This is just taking in to account for the way MDI Windows are automatically resized when launched.. This fixes it.
    Me.Height = 4335
    Me.Width = 7245
    Me.Left = 1170
    Me.Top = 400
    lblVersionNumber.Caption = "Ver " & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub pctLogo1_Click()
    Unload Me
End Sub